SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TMLETR_CLIE_U01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                 --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M¸dulo               : Empresa                    --*/  
/*---Programa             : Actualizacion Tipo Operac. --*/   
/*---                       Provisiones                --*/  
/*---Script               : tcmovi_b.sql               --*/  
/*---Nombre SP            : SP_TMLETR_CLIE_U01         --*/  
/*---Desarrollado por     : Javier Flores A.           --*/  
/*---Fecha Creaci¸n       : 16/11/1999                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi¸n              : 6.5                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     :                            --*/  
/*---Fecha Modificaci¸n   :                            --*/   
/*---Detalle Modificaci¸n :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TMLETR_CLIE_U01                      --*/  
/*---Grant all on SP_TMLETR_CLIE_U01 to public         --*/   
/*---SP_TMLETR_CLIE_U01                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR TD_VC_002,   
 @ISCO_USUA_MODI TD_VC_008_USUA,  
 @ISCO_TIPO_OPER TD_VC_003,  
 @ISNU_LETR_CLIE TD_VC_020  
 as  
  
 Begin Tran  SP_TMLETR_CLIE_U01  
    
   Update TMLETR_CLIE 
   Set CO_TIPO_OPER = @ISCO_TIPO_OPER,  
          FE_USUA_MODI = Getdate(), CO_USUA_MODI = @ISCO_USUA_MODI  
   Where  CO_EMPR = @ISCO_EMPR  
   And    NU_LETR_CLIE = @ISNU_LETR_CLIE
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End  
  
/*   Update TTLETC_ANUL Set CO_TIPO_OPER = @ISCO_TIPO_OPER,  
          FE_USUA_MODI = Getdate(), CO_USUA_MODI = @ISCO_USUA_MODI  
   Where  CO_EMPR = @ISCO_EMPR  
   And    NU_LETR_CLIE = @ISNU_LETR_CLIE
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End  
*/  
 Commit Tran  
  
/*------------------------- Fin ------------------------------*/


GO
